home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1 Issue 2 / PDCD-1 - Issue 02.iso / _utilities / utilities / 003 / riscscript / !RiScript / System / NYI < prev    next >
Text File  |  1994-09-17  |  603b  |  52 lines
  1. %
  2. % --- Not yet implemented ---
  3. %
  4.  
  5. % --- Clipping
  6.  
  7.  
  8. % /clip {} def
  9. /clip {
  10.   gsave
  11.   1 0 0 setrgbcolor
  12.   [3] 0 setdash
  13.   0 setlinewidth
  14.   stroke
  15.   grestore
  16. } def
  17.  
  18. /initclip {} def
  19. /eoclip   {} def
  20. /clippath {
  21.   newpath
  22.   0 0 moveto
  23.   0 1 lineto
  24.   1 1 lineto
  25.   0 1 lineto
  26.   closepath
  27. } def
  28.  
  29. % --- Screen
  30.  
  31. /$screen <<
  32. /freq  300
  33. /angle 0
  34. /proc  {}
  35. >> def
  36.  
  37. /currentscreen {
  38.   //$screen /freq  get
  39.   //$screen /angle get
  40.   //$screen /proc  get
  41. } def
  42.  
  43. /setscreen {
  44.   //$screen /proc  3 -1 roll put
  45.   //$screen /angle 3 -1 roll put
  46.   //$screen /freq  3 -1 roll put
  47. } def
  48.  
  49. % --- Nulldevice
  50.  
  51. /nulldevice {} def
  52.